$file = $ARGV[0];
chomp($file);
open(BUFF,"$file");
$ku =0;
while($line = <BUFF>)
{
	chomp($line);
	@array = split(/\t/,$line);
	for($i=1;$i<@array;$i++)
	{
		if($ku ==0)
		{
			$k{$i} =0;
			$m{$i} = 0;
		}
		$k{$i} = $k{$i}+$array[$i];
		$m{$i}++;
		$ku++;
	}
}
for($i=1;$i<@array;$i++)
{
	$i1{$i} = $k{$i}/4;
	$i3{$i} = ($k{$i}/4)*3;
	$mm{$i} = 0;
	$mm1{$i} = 0;
	#print "$i1{$i}\t$i3{$i}\n";
}
open(BUFF,"$file");
$ku =0;
while($line = <BUFF>)
{
        chomp($line);
        @array = split(/\t/,$line);
        for($i=1;$i<@array;$i++)
        {
		if($ku ==0)
                {
                        $k1{$i} =0;
                        $m1{$i} = 0;
                }
		$k1{$i} = $k1{$i}+$array[$i];
                $m1{$i} = $m1{$i}+$array[$i];
		if($i1{$i} < $k1{$i} && $mm{$i}==0)
		{
			#print "$mm{$i}\t$ku\t$i1{$i}\t$k1{$i}\n";
			$s1{$i} = $kk+((($array[0]-$kk)/($k1{$i} - $kky{$i}))*($i1{$i}-$kky{$i}));
			#print "$ku\t$kky{$i}\t$k1{$i}\t$kk\t\n";
			$mm{$i} = 1;
			
		}
		if($i3{$i} < $m1{$i} && $mm1{$i}==0)
                {

                        $s3{$i} = $kk+((($array[0]-$kk)/($m1{$i} - $kky{$i}))*($i3{$i}-$kky{$i}));
			#print "$s3{$i}\t$ku\n";
			$mm1{$i} = 1;
                }
		$kky{$i} = $m1{$i};	
                $ku++;			
	}
	$kk = $array[0];
}
for($i=1;$i<@array;$i++)
 {
	$temp = $s3{$i} - $s1{$i};
	print $temp."\n";
}
